<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Script from stack: HomeTHE MESSAGE HANDLERS IN THIS SCRIPT:openStack,closeStack,openBackground,closeBackground,suspendStack,resumeStack,updateHomeMenu,newCard,deleteCard,renameCard,setCardNamerenumberCards,reorderCards,adjustNavHilites,newLink,makeNewHCButtondragHCButton,updateHCPathsTHE FUNCTION HANDLERS IN THIS SCRIPT:chopStr,selectHCFile,getHCPathName,memErrorScript,writeHCScriptstringIsInContainer∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞----- Open/Resume Scripts ----------------------------------------on openStackglobal WhichHomeCardshow menubar -- needed for the "Home" menuif WhichHomeCard is not empty then go to card WhichHomeCard-- remove any similar menusif there is a menu "Home" then delete menu "Home" -- ∆pass openStack -- so others can use itend openStackon closeStackif "Home" is in the menus and (the short name of this stack is "Home")then delete menu "Home" -- ∆pass closeStack -- so others can use itend closeStackon openBackground-- Requires handlers: createTheMenus,updateHomeMenu-- make the "Home" menu if necessarycreateTheMenus-- update home menu for this bkgndupdateHomeMenu truepass openBackground -- so others can use itend openBackgroundon closeBackground-- Requires handler: updateHomeMenuglobal WhichHomeCardput short name of this card into WhichHomeCard-- update home menu for this bkgndupdateHomeMenu falsepass closeBackground -- so others can use itend closeBackgroundon suspendStack-- ∆ remove our custom menu when exitingif "Home" is in the menus and (the short name of this stack is "Home")then delete menu "Home" -- ∆pass suspendStack -- so others can use itend suspendStackon resumeStack-- Requires handlers: createTheMenus,updateHomeMenu-- make the "Home" menu if necessarycreateTheMenus true-- update home menu for this bkgndupdateHomeMenu truepass resumeStack -- so others can use itend resumeStack----- Menu Scripts -----------------------------------------------on updateHomeMenu status-- update the "Home" menu for this backgroundif there is no menu "Home" then exit updateHomeMenu -- ∆set checkMark of menuItem "Home Cards" of menu "Home" to status -- ∆-- enable items for this bkgnd onlyenable menuItem "Rename This Card..." of menu "Home" -- ∆enable menuItem "Reorder Cards..." of menu "Home" -- ∆end updateHomeMenu----- Card Manipulation Scripts ----------------------------------on newCard-- Requires handlers: adjustNavHilites,setUserLevelFive,restoreUserLevel-- Requires handlers: setCardName,disallowInterruption,allowInterruption-- Requires handler: renumberCards-- remember the card before the new one-- clear 'push recent card' in case the user doesn't cancelpush recent cardsetUserLevelFivedisallowInterruptionpop card into currentLocation-- name the new card and update the navigation buttonsask "Please give the new Home card a name:" -- ∆if the result is "Cancel" thenset cantDelete of this card to falsedoMenu "Delete Card"go currentLocation -- returns to card last viewedexit to HyperCardend ifif it is empty then put "Untitled Card" into cardName -- ∆else put it into cardNamesetCardName cardNameput number of this card into curCardNumput number of cards in this bkgnd into numBgCardsput (numBgCards - curCardNum) into fixNumlock screenrenumberCards curCardNum,false,fixNum,1go card curCardNumunlock screenpush card -- remember where we are before adjustadjustNavHilites -- adjust the button hilightingpop card -- return to where we wererestoreUserLevelallowInterruptionpass newCardend newCardon deleteCard-- Requires handler: renumberCards,adjustNavHilites-- remember cd number to return to same position after deleteset cursor to watchput the number of this card into currentPositionlock screenput number of cards in this bkgnd into numBkgndCardsrenumberCards currentPosition,false,numBkgndCards-currentPosition,-1adjustNavHilites currentPositiongo card currentPosition -- return to where we wereunlock screenpass deleteCardend deleteCardon renameCard-- Requires handler: setCardName-- rename any of the "home" cardsask "New name for this card?" with bg field "Card Title" -- ∆if it is empty or it is bg field "Card Title" or the result is "Cancel"then exit renameCardsetCardName itend renameCardon setCardName theName-- Requires handlers: disallowInterruption,allowInterruption-- Requires function handler: chopStrlock screendisallowInterruptionset name of this card to chopStr(theName,13)put theName into bg field "Card Title"put number of this card into curCardif curCard ≤ 5 thenset name of bg btn curCard to chopStr(theName,13)set hilite of bg btn curCard to true -- make sureend ifallowInterruptionend setCardNameon renumberCards newPosition,adjustDown,fixNum,adjustput newPosition into bg fld "Card Position"if adjustDown then go card newPosition of this bkgndelse go next card of this bkgndrepeat fixNumadd adjust to bg fld "Card Position"go next card of this bkgndend repeatend renumberCardson reorderCards-- Requires handlers: disallowInterruption,allowInterruption-- Requires handlers: renumberCards,adjustNavHilities-- reorder the cards of the first bkgndput bg fld "Card Position" into currentPosition-- get new position for this card from the userask "“" & the short name of this card & "”" && ¬"is currently card" && currentPosition & "." & return & ¬"Please enter a new position for this card:" with the number of this card -- ∆if (it is empty) or (it is not an integer) or (the result is "Cancel") thenbeepexit to hyperCardend ifif it > number of cards in this bkgndthen put number of cards of this bkgnd into newPositionelse put it into newPositionset cursor to watchdisallowInterruption -- adjustNavHilites cancels this-- Note: bg fld "Card Position" is a hidden fieldlock screen -- insure correct order before sortingpush card -- remember where we areif newPosition <= currentPosition thenput 1 into adjustput true into adjustDownelseput -1 into adjustput false into adjustDownend ifrenumberCards newPosition,adjustDown,abs(currentPosition - newPosition),adjustpop card -- return to where we were-- now sort them to their new positionssort cards of this bkgnd by bg fld "Card Position"adjustNavHilites -- reset navigation btns to match new card ordergo card newPositionend reorderCardson adjustNavHilites cardDeleted -- param added for delete card handler-- Requires handlers: disallowInterruption,allowInterruption-- resets bottom navigation buttons to match card orderlock ScreendisallowInterruptionrepeat with curCard = 1 to number of cards of first bgset cursor to busyif curCard = cardDeleted then next repeatgo card curCard of first bg-- unhilite navigation buttonsrepeat with curBtn = 1 to 5set hilite of bg btn curBtn to falseend repeatif ((curCard > cardDeleted) and (cardDeleted ≠ empty)) then put 1 into adjustelse put 0 into adjustif curCard ≤ (5+adjust) then-- rename the buttonsset name of bg btn (curCard-adjust) of card curCard to short name of card curCard-- hilite the one for this cardset hilite of bg btn (curCard-adjust) of card curCard to trueend ifend repeatunlock screenallowInterruptionend adjustNavHilites----- Misc Scripts -----------------------------------------------function chopStr theStr,maxSize-- adjust any string of characters to be maxSize or fewer characters-- truncating to the nearest spaceif length(theStr) > maxSize then -- we need to chop itput char 1 to maxSize of theStr into theStr -- quick trimput length(theStr) into strSize -- so don't have to calc each timeif strSize ≥ (maxSize-3) then -- leave room for "..."if space is in theStr then -- want to break on word boundaryrepeat with count = strSize down to 1 -- search for last spaceif char count of theStr is space and count ≤ (maxSize-2) thenput char 1 to (count-1) of theStr into theStrexit repeat -- we found the space so exitend ifend repeatelse put char 1 to (maxSize-3) of theStr into theStr -- need room for "..."put "..." after theStr -- to indicate the string is longerend ifend ifreturn theStrend chopStr----- NewLink Scripts --------------------------------------------on newLink fileType-- Requires handlers: disallowInterruption,allowInterruption-- Requires handlers: makeNewHCButton,dragHCButton,updateHCPaths-- Requires function handlers: selectHCFile,lastHCItem,getHCPathName,writeHCScript-- Allows you to select a stack, application or document from an-- answer dialog, and create a button to open that file.-- This is the main newLink handler and can be called from any stackput visible of msg box into saveVisMsgBox -- to restore it later-- if no file type is given, determine what type of file to link toif (fileType is not in "stack document application file") thenanswer "Create button linked to a stack or file?" ¬with "Cancel" or "File" or "Stack" -- ∆if it is empty or it is "Cancel" then exit newLinkput it into fileTypeend if-- if it's a file determine what kind of file it isif fileType is "File" then -- ∆answer "Create button linked to a document or an application?" with ¬"Cancel" or "Document" or "Application" -- ∆if it is empty or it is "Cancel" then exit newLinkput it into fileTypeend ifdisallowInterruption-- selects the stack, application, or document to link toput "Select the" && fileType && "to open:" into prompt -- ∆if fileType is "Stack" then put "STAK" into filter -- ∆else if filetype is "Application" then put "APPL" into filter -- ∆else put empty into filter -- no way to show only documentsput selectHCFile(prompt,filter) into longFileName -- full pathput lastHCItem(":",longFileName) into shortFileNameset cursor to watch-- if document is chosen, get application to open it.put empty into longAppNameif fileType is "document" then -- ∆put "Select the application to open" & return ¬& "“" & shortFileName & "”" & ":" into prompt -- ∆put selectHCFile(prompt,"APPL") into longAppName -- full pathput lastHCItem(":",longAppName) into shortAppNameend if-- extract the file path from the full path nameput getHCPathName(longFileName) into thePath-- make a new button for the linked filemakeNewHCButton shortFileName,fileType-- write the script for the new buttonset script of last cd btn to ¬writeHCScript(fileType,shortFileName,shortAppName)-- allow the user to set the position of the new buttonput "card button id" && id of last card button into btnIDdragHCButton btnID -- user can now move it-- update the "Paths" field on the proper "Path" cardupdateHCPaths fileType,thePathif longAppName is not empty then -- for a document's appput getHCPathName(longAppName) into appPathupdateHCPaths "application",appPathend ifput empty into msg -- clean up and exitset visible of msg box to saveVisMsgBox -- restore itallowInterruptionend newLinkfunction selectHCFile prompt,filter-- displays dialog for selection of a particular fileTypeif filter is not empty then answer file prompt of type filterelse answer file promptif (it is empty) or (the result = "Cancel")then exit to HyperCardreturn it -- otherwise return the selected file pathend selectHCFilefunction getHCPathName longName-- Requires handler: lastHCItem-- return the path to the fileput lastHCItem(":",longName) into fileNamereturn char 1 to (length(longName) - length(fileName)) of longNameend getHCPathNameon makeNewHCButton shortName,iconType-- Requires handlers: setUserLevelFive,restoreUserLevel-- create a new button and set it's name and iconlock screensetUserLevelFive-- ∆ need user level five so menu item will be theredoMenu "New Button"-- set attributes of new buttonset style of last card button to transparentset showName of last card button to trueset autoHilite of last card button to trueset name of last card button to shortNameset height of last card button to 52set icon of last card button to iconType-- don't let the button be too slimif length(shortName) * 6 > 36 thenset width of last card button to length(shortName) * 6else set width of last card button to 36choose browse toolrestoreUserLevelunlock screenend makeNewHCButtonfunction memErrorScript appName-- returns a script used in many placesreturn "if the result is not empty then" & return & ¬"beep 1" & return & ¬"answer" && quote & "Not enough memory to open the application “" ¬& appName & "”." & quote & return & ¬"end if" -- ∆end memErrorScriptfunction writeHCScript fileType,fileName,applName-- Requires handler: memErrorScript-- ∆ creates and writes the script for the new button -- see makeNewHCButtonput "on mouseUp" & return into theScriptif fileType is "stack" thenput "-- stack will open in new window if there's enough memory" & return ¬& "go to stack" && quote & fileName & quote && "in a new window" & return ¬& "if the result is" && quote & "Cancel" & quote && "then exit mouseUp" & return ¬& "else if the result <> empty then go to stack" && quote & fileName & quote & return after theScriptelse if fileType is "application" thenput "open" && quote & fileName & quote & return after theScriptput memErrorScript(fileName) & return after theScriptelse if fileType is "document" thenput "open" && quote & fileName & quote ¬&& "with" && quote & applName & quote & return after theScriptput memErrorScript(applName) & return after theScriptend ifput "end mouseUp" after theScriptreturn theScriptend writeHCScripton dragHCButton theButton-- ∆ let user drag the button within the card windowput "Drag the button to the desired location." -- ∆-- flash button until user clicks down on itset cursor to arrowrepeat until the mouse is downset hilite of theButton to not hilite of theButtonwait 8 -- 8/60 of a secondend repeatset hilite of theButton to true-- drag the button but constrain to card windowput width of theButton div 2 into halfBtnWidthput width of card window - halfBtnWidth into maxWidthput height of theButton div 2 into halfBtnHeightput height of card window - halfBtnHeight into maxHeightrepeat while the mouse is down-- the horzput max(the mouseH,halfBtnWidth) into btnHput min(btnH,maxWidth) into btnH-- the vertput max(the mouseV,halfBtnHeight) into btnVput min(btnV,maxHeight) into btnVset loc of theButton to btnH,btnVend repeatset hilite of theButton to falseend dragHCButtonon updateHCPaths fileType,thePath-- Requires function handler: stringIsInContainer-- update the appropriate path card for the newly created buttonglobal Stacks,Applications,Documentsput "s" after fileType -- ∆ so it will match card & global namedo "get" && fileType -- put the appropriate global into "it"-- exit this handler if the global already contains the pathif stringIsInContainer(thePath,it) then exit updateHCPathslock screenset cursor to watchset lockmessages to true -- avoid open messagesset lockrecent to true -- don't make any card miniaturespush card -- remember where we are-- go to the correct path card in the home stackgo card fileType of stack "Home" -- ∆-- update the "Paths" field with the new pathget bg field "Paths" of card fileTypeif (it ≠ empty) and (the last char of it ≠ return)then put return before thePathput thePath after bg field "Paths" of card fileType-- cause the appropriate global variable to be updateddo "put bg field Paths into" && fileTypepop card -- return to where we wereend updateHCPathsfunction stringIsInContainer theString,theContainer-- check to see if theString is a full line of theContainerif (theString = first line of theContainer) or ¬(theString = last line of theContainer) then return trueelse if theContainer contains return & theString & return ¬then return true-- not found, so return falsereturn falseend stringIsInContainer</script>
